#!/usr/bin/perl

use warnings;
use strict;

my $foo = "foo-scalar ";
my @foo = ("foo-list ");
my %foo = (foo=>"foo-hash ");
sub foo {print "foo-subroutine "};

print $foo;
print @foo;
print %foo;
&foo;

print *foo;
print \*foo;
print \&foo;